home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / xes.lha / XES / REXX / ReqFind.xdme < prev    next >
Text File  |  1995-08-01  |  442b  |  17 lines
  1. /* $VER: ReqFind.xdme 1.0 (01 Aug 1995) */
  2.  
  3. if ~show("L","rexxreqtools.library") then
  4.     if ~addlib("rexxreqtools.library", 0, -30) then exit
  5.  
  6. options results
  7. address 'XDME.1'
  8. 'rxresult ($findstr )'
  9. F = strip(result, "T")
  10.  
  11. F = rtgetstring(F,"Enter Find String","XDMD Find Requester","_Next|_Prev|_Set|_Cancel")
  12. F = '(' || strip(F,"T") || ')'
  13. if rtresult = 0 then exit
  14. 'findstr' F
  15. if rtresult = 1 then "next"
  16. else if rtresult = 2 then "prev"
  17.